home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / beam2nl.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  621b  |  37 lines
  1. /* simple beam */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/plstress'
  13.  
  14. h = 0.1
  15. L = 10.0
  16. E1 = 1.0e8
  17. nu1 = 0.000
  18.  
  19. 'reset'
  20. 'iso(1,'E1','nu1')'
  21. do i=0 to 20
  22.     xx = L*i/20
  23.     'node('i + 1','xx',0.0)'
  24.     if i//2 = 0 then 'node('i + 31','xx','h/2')'
  25.     'node('i + 61','xx','h')'
  26. end
  27. do j=0 to 9
  28.     i = j*2;
  29.     'quad8('j + 1',1,'i + 1','i + 3','i + 63','i + 61','i + 2','i + 33','i + 62','i + 31')'
  30. end
  31. 'dispx(1,0.0)'
  32. 'dispy(1,0.0)'
  33. 'dispx(61,0.0)'
  34. 'dispy(61,0.0)'
  35. 'forcy(81,-50.0)'
  36. exit
  37.